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ж * EDITOR'S COMMENTS ቁፍ = لے ہے‎ 22 


FRONT COVER 
IT SAYS IT ALL. I HAVE MOVED AGAIN, BUT NOT VERY FAR AND HAVE NO 
PLANS MOVING AGAIN UNLESS I WIN LOTTO OR SOMETHING SIMILIAR. IT ፲5* 
VERY NICE HAVING A PLACE OF MY OWN AGAIN AFTER BOARDING FOR A COUPLE 
YEARS WITH MY BROTHER. 


HELP — SELL ይ .ELL PAGE = 
APOLOGIES, NEXT/FUTURE ISSUES, FOR SALE, PUBLIC DOMAIN SOFTWARE AND 


BACK ISSUES. 


LIST UTILITY BY L MILBURN PAGES ]ጉ።፦ርፎ 
LIST IS A SMALL ROUTINE WHICH CAN BE CALLED FROM A BASIC PROGRAM AND 
LISTS A BASIC PROGRAM STORED ON DISK TO THE PRINTER (OR SCREEN AFTER A 
SMALL MOD) AND THE BASIC PROGRAM WILL KEEP RUNNING AFTER THE CALL. 


DOS BUGS 2 BY L MILBURN | PAGE 6 
THIS TIME LES HAS FOUND A BUG WITH THE DCOPY COMMAND AND SHARES HIS 
DISCOVERY WITH OTHER VZ USERS. 


BASIC COMMAND — TEONA PAGE S 


BY вов KITCH | | 
THERE ARE ል NUMBER OF UNDOCUMENTED COMMAND ABBREVATIONS WHICH BOB 


BRINGS TO OUR ATTENTION AND CAN E USER BY PROGRAMERS. 


INVERSE CHARACTER SET PAGES 7—10 . 


BY BOB KITCH 
THE SHAPES OF THE VZ INVERSE CHARACTER SET IS HELD IN ROM AND CONTAIN 


SOME ERRORS. IF YOU STUDY PAGE 10 YOU'LL SEE THEM. ІНЕ PROGRAM WILL: 
ALLOW YOU TO A HAVE A LOOK AT YOUROWN ROM AND SEE FOR YOURSELF. 
BASIC & SOURCE CODE TO `P PAGES 10—14 


МР FILE BY D MITCHELL 

THIS PROGRAM WAS NORMALLY AVAILABLE WITH DAVE MITCHELL ' S E ጳ F DISk WP 
PATCH3.3. IT CONVERTS BASIC PROGRAMS AND SOURCE CODE FILES TO DISK WP 
FILES. IT IS VERY FAST AND VERY EASY TO USE AND VERY USEFUL. | 


уж NUMBERS FREQUENCY = PAGES 14--1 8 
THIS PROGRAM IS DESIGNED TO KEEP TRACK OF WINNING AND/OR SUPPLEMENTARY 
NUMBERS IN POOLS AND 60 LOTTO. WITH SOME MINOR MODIFICATIONS THIS 
PROGRAM COULD BE ALTERED TO KEEP TRACK OF OTHER NUMBER FREQUENCIES. 

` OZ LOTTO MODS IN NEXT ISSUE. 


VZ—EP SON PRINTER PATCH V1.4 PAGE 19 
BY L TAYLOR — PUBLIC TAYLOR 

THE INSTRUCTIONS FOR ABOVE ARE REPRODUCED FOR THOSE WHO HAVE PROGRAM 
BUT NOT THE INSTRUCTIONS. 


NEW PUBLIC DOMAIN SOFTWARE PAGE 20 
USER GROUPS | | 
ONTRIBUTIONS 

UBSCRIPT IONS 


UO 


DISCLAIMER : EVERY EFFORT IS MADE TO INSURE THE ACCURACY OF 
INFORMATION CONTAINED WITHIN BE IT GENERAL, TECHNICAL, PROGRAMMING, 
ETC. NO RESPONSIBILITY CAN BE ACCEPTED BY HUNTER VALLEY VZ USERS' 
GROUP OR ÁUTHOR AS A RESULT OF APPLYING SUCH INFORMATION, IN PRACTICE. 


4ጁ4ዱ-5 з= ^ ^ HELP / SELL & TELL жж 


` APOLOGIES 


‚ МУ SINCEREST APOLOGIES 
` LATENESS OF THIS ISSUE. 
PROBLEM WHICH GOT MUCH .WORSE 


TO ALL VZ JOURNAL READERS FOR THE VERY, VERY 
ል5 MENTIONED IN LAST ISSUE I HAVE A MEDICAL 


NEAR COMPLETION OF MY NEW HOUSE. [IT 
AFFECTED ALL MY JOINTS AND MADE LIFE UNBEARABLE FOR MANY MONTHS. 


I HAD TO BE OUT OF MY LAST ADDRESS BY ል CERTAIN DATE AND SO I PUSHED 


MYSELF AND AM STILL PAYING FOR IT NOW. 
BUT THANKFULLY I'M STARTING TO FEEL 


I HAD MANY RELAPSES SINCE THEN 
NEAR NORMAL. THE NEXT ISSUE 


PH UP) BE ON TIME AS I'VE LEARNED MY LESSON AND AM TAKING THINGS EASY. 


NEXT/ FUTURE ISSUE^/S š 


FINAL PART OF VZ FREQUENCY. | 
MULTIPLE USR CALL ROUTINE (USED IN VZ FREQUENCY). 
MACHINE CODE DIRECTORY ROUTINE (USED BY VZ FREQUENCY). 
MINI AMPLIFIER FOR THE VZ. 
MANUAL DATA INPUT FOR VZ LOTTO. 


JOURNAL INDEX PART II 


FOR SALE — FOR SALE . . . 


| OFF VZ 500 — 
OFF DISK DRIVES 


OFF LIGHT PEN 


— መዱ መ» መታ ኢን 


OFF PRINTER INTERFACE / 
OFF GREEN SCREEN MONITOR 


OFF ОК2@ ТАРЕ DATA RECORDER 
Box OF ASSORTED DISKS, 


OFF 16 MEMORY EXPANSION 


OFF DISK 


CONTROLLER 


1 

1 

1 OFF JOYSTICK INTERFACE 

1 OFF 8 BIT PORT (HV VZ J #30) 
1 OFF MODEM AND INTERFACE 
ASSORTED GAME CASSETTES 

BOOKS, MAGAZINES AND MANUALS 


$250.00 ONO. ‘WILL SEPERATE BUT WOULD PREFER TO SELL AS ONE LOT. 


ALSO FOR SALE SPARE PARTS INCLUDING: 


APPROXIMATELY 6 VZ's, 


BEST OFFER FOR ABOVE 
BEN HOBSON РО BOX 255 QUIRINDI 
PUBLIC DOMAIN SOFTWARE 


IT HAS BEEN SUGGESTED TO ME 
CONTAINING PUBLISHED 


"BACK ISSUES 


EXPANSION CASES, MODEMS, JOYSTICKS, MEMORY, CPU 
CHIPS (SOME NEW),. MONITORS (GOING). | | 


PROGRAMS, 


2545 (067) 462 076 AFTER 6.50 PM 


THAT [Í 


ASSEMBLE A NUMBER OF DISKS 


PUBLIC DOMAIN SOFTWARE, ETC AND OFFER 
TO READERS AT MINIMAL COST TO COVER EXPENSES. PLEASE LET ME KNOW YOUR 
IDEAS ON THIS AND WHAT TYPE OF SOFTWARE YOU WOULD LIKE. ED. 


MOST BACK ISSUES ARE IN STOCK AND AVAILABLE 


CURRENT ISSUE 

1 - 5 ISSUES 

6 OR MORE ISSUES 
OUT OF STOCK ISSUES 


$5.50 EACH 


$5.00 EACH 
$2.75 EACH 
$5.50 EACH 


INCLUDES 
- INCLUDES 
- INCLUDES 
¬ INCLUDES 


AT FOLLOWING PRICES. 


POSTAGE 
POSTAGE 
POSTAGE 
POSTAGE 


CIST UTILITY EY LESLIE MILBURN ዱዱ--ዱ 


LIST IS A SMALL ROUTINE WHICH LISTS A BASIC PROGRAM STORED ON DISK ТО. 
THE PRINTER (OR SCREEN AFTER A SMALL MOD). 


SO WHATS NEW? 1 HEAR YOU ASK. | | ሃ 


WELL, THE BEAUTY OF THIS UTILITY IS THAT IT CAN BE CALLED FROM ል BASIC 
PROGRAM AND DOES NOT RE-ENTER IMMEDIATE MODE AFTER LISTING THE 
PROGRAM, (I.E. THE CALLING BASIC PROGRAM KEEPS RUNNING). 


WHAT'S THE USE? 


THE MAIN USE OF LIST IS TO PROVIDE AN EASY WAY TO LIST MANY BASIC 
PROGRAMS IN A "BATCH LIKE" PROCESS WITHOUT REQUIRING INTERVENTION BY 


THE USER. 
How TO USE LIST. 


(1) A CONTROLLING BASIC PROGRAM IS REQUIRED. ІТ MUST LOAD THE 
` ROUTINE, SET UP THE USR ADDRESS AND PROVIDE THE FILENAMES 
OF THE PROGRAMS TO LIST. 


(2) THE CONTROLLING BASIC PROGRAM MUST BE RELOCATED SUCH THAT ITS 
START ADDRESS IS ABOVE THE END ADDRESS OF ALL OF THE BASIC 
PROGRAMS IT IS LISTING. 


(5) XUSR("FILENAME") IS THE SYNTAX REQUIRED TO LIST A FILE. AFTER 
THE CALL, X INDICATES WHETHER AN ERROR OCCURRED (NON-ZERO = 
ERROR). 


RELOCATING A BASIC PROGRAM 


THE EASIEST WAY TO RELOCATE A PROGRAM IS TO USE THE EXT12 UTILITY. AN 
ALTERNATIVE IS TO MOVE THE START OF BASIC POINTER AS DESCRIBED IN THE 
TECHNICAL MANUAL. | | 


RUNNING A RELOCATED BASIC PROGRAM 


IF vou TRY TO RUN A RELOCATED BASIC PROGRAM AND YOU GET A SYNTAX ERROR 
TRY THE FOLLOWING: 


508= (PEEK (50884) +256*РЕЕК (50885) ) -1 
POKE SOB,@ oR POKE 50В-65556,0 IF SOB > 32767 


Now TYPE RUN 


HERE IS AN EXAMPLE OF A CONTROLLING BASIC PROGRAM (NOTE THAT LIST.BIN 
IS LOCATED AT 29184) 


10 BLOAD"LIST.BIN' 

20 POKE30862,0:POKE30865,114 | 

58 POKE29282,0 'FOR SCREEN LIST 5 
40 X=USR("FILE1”) 

5@ X=USR("FILE2') 

60 X-USR(C'FILES") 

78 X=USR("ETC ") 

8@ X=USR("ETC ") 


LIST SOURCE CODE ON NEXT Z FAGES 


ጫጫ ---ቿ5 


091 


` 002 


005 


. 004 


Ф 


005 


006 
007 
008 
009 


ባቹ Уна ባባ кыйы е шашуы | 


LIST UTILITY SOURCE CODE 


;* MACHINE CODE ROUTINE . 


a Эк эе Ж 35 35 35 30€ еже зе ж ЭЕ NE oe X€ ЭК ЭЕ 


፡* PRINTS ለ BASIC PROGRAM = 


: NOT RELOCATABLE CODE.. 


E A AA 


: ROM 


010 : 


011 
012 
015 
014 
015 


016 


017 
018 
019 
020 
021 
022 
025 


025 
026 


- 027 


028 
029 


25050 


021 
052 
055 


055 
056 
057 
058 
059 
040 
041 
042 


045 ; | 
; CHECK ARG IS A STRING 
VSTR 


044 
045 
046 
047 
048 
049 
050 
‚ 951 
052 
053 
‚054 
055 


056 _ 


057 
058 
959 
060 
061 
062 


PCHR 
PINT 
FLNE 
PCR 

IMOD 
PMSG 
DTOK 
PWON 
PWOF 
LOAD 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


SUBROUTINES. 


052AH 
OF AFH 
1B2CH 
2@FEH . 
2828H 
2B/5H 
2B/EH 
4008H 
400BH ` 
4041H . 


, 
+ Жк É эе ጃቶ эе зе ЭК ጓድ ቴጅ Же ЭЕ ЭЕ 3k HE ЭЕ ЭЕ ЭЕ ЭЕ ጋጅ ЭК ЭК E ЖЕ ЭК ЭК 


DVCE EQU 
SBAS EQU 
BPTR EQU 
RTYP EQU 
EBAS EQU 
ARG EQU 


:BASIC PROGRAM POINTERS 
024 ; | 


789CH 
78A4H 
78A7H - 
7ВАЕН 
78F9H 
7921H 


› | 
, 3E XE 35 3€ ж Ж ЭК S ጋጅ ጋጅ ጋጅ ጋሩ X€ ox 3€ 


: CONSTANT DEFINITIONS 
054 : 


VINT EQU 
VSTR EQU 
SDEV EQU 
PDEV EQU 
ЕТҮР EQU 
STAK EQU 


2 
ኃ 
0 
1 


pm 


/ / 00H 


; 
፡ ንጽ 3፳ 3€ ЖЗ ЖЖ 30€ ንጅ % ንጅ % 3€ % ጋዙ ጋጅ ጋሩ ጋጅ ኃጅ ጋጅ ጋዙ ኃጅ X€ ጋጅ 


ርኮ 
JP 


NZ,ERR 


;CHECK IF IMMEDIATE MODE 


CALL 


IMOD 


; SAVE DOS VECTOR 


LD 


(DOS) , IY 


;CLEAR FILENAME BUFFER 


LD - 
LD 
INC 
INC 
INC 
LD 
LD 
LDIR 
; GET 
LD 


;A=STRING 


DE, (DOS) 
HL , (DOS) 
HL 

DE 

DE 

(HL) ,52 
ВС, 7 


STRING ARG (FILENAME) 


HL , (ARG) 
LENGTH 


065 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
0/4 
075 


108 


— — мыз —> لے‎ መቃ = መዕ — => au መጨው ልሕ ملسب‎ y ә 


pon ን. 


LD ል, (НЫ) 
INC HL 


‚ТЕ STRING LEN-0, RETURN 
0 


LP1 


CP 


JR. | Z,ERR 
;ENSURE STRING LEN ሩ= 8 
СР 9 | 
JP M,LP1 
LD А,8 
LD Е, (НЫ) 
INC HL 
LD D,(HL) 
EX DE,HL 
; COPY FILENAME TO BUFFER 
LD ОЕ, (005) ` 
INC DE 
LD С,А 
LD В8В,0 
LDIR 


;SAVE STACK POINTER 


LD (STCK) , SP 


;SET STACK PTR TO FREE MEM 


LD <Р,5ТАК 


; SAVE IMPORTANT BASIC PTRS 


;SET 


LD НЬ, (ВАЗ) 

PUSH HL | 

LD HL, (EBAS) 

PUSH HL 

LD HL, (BPTR) 

PUSH HL 

FILETYPE TO BASIC TYPE 
LD (IY+9),FTYP 


;LOAD FILE SPECIFIED FROM 
;DISK IN CURRENT DRIVE 


CALL PWON 
CALL LOAD 


+SAVE ERROR CODE. 


PUSH AF 
CALL PWOF 


;: RESTORE THE ERROR CODE 
AF 


: WAS 


ЭЕТ 
; THE 


ЭЕТ 


РОР 

THERE А DISK ERROR? 

CP Ø 

JR МА, ERR2 | 
THE OUTPUT DEVICE TO 
PRINTER 

LD А,РПЕу 

LD (0ሃር፻) , ጳ 

THE BASIC INPUT BUFFER 


; ГО OUR OWN BUFFER . 


LD HL, IBUF 
LD (BPTR) , HL 


; SEARCH FOR THE FIRST BASIC 
; PROGRAM LINE 


LD o DE,O 
CALL FLNE 


;SAVE FOUND LINE PTR 


LOOP 
BC = 


PUSH BC 
POP HL 
PTR TO NEXT LINE 
LD | C, (HL) 
INC HL 


LIST UTILITY SOURCE CODE CONT. ዱዱ--ፌ 


125 (0 8, (HL) 


167 LD (BPTR) ,HL 
126 INC HL 168 POP HL 
127 ;CHECK IF END OF PROGRAM 169 LD (EBAS) ,HL 
128 LD A,B 170 POP HL 
129 OR C 171 LD (SBAS) ,HL 
130 JR 2,1ЕХХ 172 LD HL, 1 
151 :SAVE PTR TO NEXT LINE 173 JR І ЕХ1 
152 PUSH BC 174 ፤ 
155 :BC = LINE NUMBER 175 ;EXIT FROM ROUTINE NO ERROR 
154 LD C, (HL) 176 LEXX EQU $ 
155 INC HL 177 ፤ | 
136 LD B, (HL) 178 ;OUTPUT TWO CR'S 
137 ; SAVE LINE NUMBER 179 CALL PCR 
138 PUSH BC 180 CALL PCR 
159 ;HL = TOKENISED LINE PTR 181 :;RESTORE IMPORTANT BASIC 
140 INC HL 182 ; PROGRAM POINTERS 
141 ;SAVE LINE PTR. HL=LINE ከ0. 185 POP HL 
142 EX (SP) , HL 184 LD (BPTR) ,HL 
145 ;PRINT THE LINE NUMBER 185 POP HL 
144 CALL PINT 186 LD (EBAS) ‚НЕ 
145 :OUTPUT A SPACE 187 POP HL 
146 LD А, 52 188 | ሀ (SBAS) ,HL 
147 CALL PCHR 189 ;RESET OUTPUT DEVICE TO 
148 POP HL 190 ;THE SCREEN ` 
149 :DETOKENISE STRING POINTED 191 LD | A, SDEV 
150 ;TO BY HL 192 LD (ОУСЕ) ‚А 
151 CALL DTOK 195 ;HL-RET VALUE. ZERO-SUCCESS 
152 :LIST LINE ON OUTPUT DEVICE 194 LD НЕ, 
155 > LD НЕ, IBUF 195 [ጀጸ1 LD (ARG) , HL + 
154 CALL PMSG т. 196 ;5ЕТ RETURN ARG ТҮРЕ ТО INT 
155 :OUTPUT А CR 197 LD A, VINT 
156 CALL PCR 198 LD (RTYP),A 
157 JR LOOP 199 ;RESTORE STACK POINTER 
158 ; | 200 LD SP, CSTCK) 
159 :EXIT FROM ROUTINE ON ERROR 201 RET 
160 ERR LD HL, 1 202 ; | 
161. JR LEXI | 225 ‚ W FE ж эе эе FE FE ЭК HE E ЭЕ ЭЕ ЖЕ ЭЕ e S£ ር ጋሹ Me e Xe Xe ЭЕ XXI 
162 ERR2 EQU $ e. ; DATA STORAGE AREA 
165 - 
164 ፡ RESTORE IMPORTANT BASIC - 206 IBUF DEFS 100 
165 :PROGRAM POINTERS 207 STCK DEFW 0 
166 POP HL 208 DOS DEFW 0 


DOS BUGS REPORT > IN (DSE) DOS Vi = 2 
EY LESLIE MILBURN 


I HAVE FOUND YET ANOTHER BUG IN DOS V1.2. THIS TIME IT IS TO DO 


WITH THE DCOPY coMMAND. IF DCOPYING A SINGLE FILE USING TWO DRIVES AND 


THE DESTINATION DISK IS WRITE PROTECTED, THE DESTINATION DRIVE IS LEFT 
SPINNING AND NO ERROR MESSAGE IS DISPLAYED. і 


IF ANYBODY HAS FOUND АМҮ OTHER BUGS IN ANY DOS SYSTEM, PLEASE 
INFORM THE EDITOR WHO CAN PASS THE INFORMATION ON TO OTHER USERS. 


NOTE = ТЕ WRITING TO EDITOR PLEASE NOTE NEW ADDRESS AND PHONE 
NUMBER WHICH IS SHOWN ON FRONT COVER. | 


* 


Ф 


ዱዱ --ፖ BASIC COMMAND ABBREVIATIONS 
BY BOB KITCH 


` A NUMBER OF ABBREVIATED FORMS OF BASIC COMMANDS WILL RUN ON THE VZ. 


THESE SHORTENED FORMS ARE NOT FULLY DOCUMENTED IN THE MANUALS 
ACCOMPANYING THE MACHINES; SO I HAVE SET THEM OUT BELOW. TRY THEM, AS 
THEY SAVE A LITTLE SPACE ON THE 52 CHARACTER LONG LINE. THEY SHOULD 
BE USED WITH CAUTION AS THEY CONTRIBUTE LITTLE TO PROGRAM READABILITY. 


FULL COMMAND ABBREVIATED COMMAND . 
10 КЕМ А NON-EXECUTABLE LINE 10 ' ለ NON-EXEC.... 
20 PRINT"SEE THIS"" 20 ?"SEE THIS" 
50 SOUND 1,3:SOUND 2,5 ° — 50 SOUND 1,3;2,5 
40 LET А-25 : .40 A-2535 | | 
90 IF A-1 THEN GOTO 999 50 IF A-1,GOTO 99 
| ` wi | DER Ss s 


90 IF A-1,999 Е 
60 РКІМТ"ЕМТЕК VALUE":INPUT А 60 INPUT"ENTER VALUE":A 


TO PUT THE INPUT "?" ANY WHERE ON THE SCREEN USE: 
70 PRINT8488; : INPUT А | 


MULTIPLE NEXT STATEMENTS ARE NOT REQUIRED IF THEY FOLLOW EACH OTHER IN 
THE PROGRAM. | 


EDITORS NOTE: 


THE USE OF (') INSTEAD OF REM SAVES TWO CHARACTER SPACES ON THE 
PROGRAM LINE BUT USES 5 BYTES OF MEMORY INSTEAD OF 1 BYTE. | 


THE USE ОҒ (?) INSTEAD OF PRINT SAVES CHARACTER SPACES ОМ THE PROGRAM 
LINE, BUT ONCE ENTERED THE VZ CONVERTS IT TO THE PRINT STATEMENT. 
EACH NUMBERED LINE ON THE VZ CONSISTS OF 64 CHARACTER SPACES INCLUDING 
THE LINE NUMBER. | 


IT IS POSSIBLE BY USING (?) MANY TIMES ON A LINE TO FORCE THE VZ TO 
EXCEED THE 64 CHARACTER LIMIT. THE VZ WILL DISPLAY IT, BUT WILL NOT 
ALLOW EDITING ОҒ THE EXTRA CHARACTERS/LINES AND IF YOU PRESS RETURN 
ON THE LINE THE EXTRA CHARACTERS/LINES WILL DISAPEAR. | 


WHEN RENUMBERING YOUR PROGRAM THE USE ОЕ  (') INSTEAD OF REM CAN 
CORRUPT YOUR PROGRAM АМО BRING ON STRANGE RESULTS WHICH COULD BE 
DIFFICULT ТО CORRECT FOR THE NOVICE PROGRAMMER. AS BOB MENTIONED USE 
THE ABREVIATED COMMANDS WITH CAUTION. 


DISPLAY INVERSE CHARACTER SET 
| BY BOB KITCH 


WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER. THE PRINTER 
SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE TO SUPPLY THE 


, APPROPRIATE SHAPES TO THE HEAD. (NORMAL CHARACTERS ARE HELD IN THE 


PRINTERS ROM). IN THE VZ COMPUTER A TABLE OF SHAPES IS LOCATED AT 
5B94H TO 3CD3H (15252 TO 15571 IN ROM. | 


THERE ARE 64 CHARACTERS, EACH USING 5 BYTES TO DEFINE THEIR GRAPHIC 
SHAPE. IHE SHAPES MAY BE DECODED AND OUTPUT TO THE SCREEN. AS IS DONE 
IN THIS PROGRAM. NOTE THERE ARE ERRORS IN THE ROM. THE 5 BYTES 
DEFINE ል 5 BY 8 DOT MATRIX WHICH IS THE SHAPE OF THE CHARACTER, WHICH 
INCIDENTLY ARE NOT ORDERED ACCORDING TO THE ASCII CODE. | 


INVERSE CHARACTER SET CONT . .ዑ. ዳዱ፦-ፎ= 


WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER THE PRINTER, 
SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE TO SUPPLY THE 
APPROPRIATE SHAPES TO THE HEAD. (NORMAL CHARACTERS ARE HELD IN THE 
PRINTERS ROM). IN THE ሃደ COMPUTER A TABLE OF SHAPES IS LOCATED АТ, 
3B94H TO 3ር03ዘ (15252 TO 15571 IN ROM. 


THERE ARE 64 CHARACTERS, EACH USING 5 BYTES TO DEFINE THEIR GRAPHIC 
_ SHAPE. [HE SHAPES MAY BE DECODED AND OUTPUT TO THE SCREEN AS IS DONE 
IN THIS PROGRAM. NOTE THERE ARE ERRORS IN THE ROM. THE 5 BYTES 
DEFINE ል b BY 8 DOT MATRIX WHICH IS THE SHAPE OF THE CHARACTER, WHICH 
INCIDENTLY ARE NOT ORDERED ACCORDING TO THE ASCII CODE. 


THE FIRST BYTE DEFINES THE LEFT HAND EDGE OF THE CHARACTER WHICH IS 
THE FIRST PRINTED DURING A PASS OF THE PRINTER HEAD. ІМ ТАМОУ 
PRINTERS THE MSB IS THE LOWERMOST РІМ OF THE HEAD AND LSB IS THE 
UPPERMOST PIN. THE РІМ5 ON EPSON PRINTER HEADS ARE ARRANGED IN THE 
` OPPOSITE SENSE. THIS REQUIRES THAT THE BITS IN EACH BYTE BE REVERSED. 


n1 ሀ ፤ a 3# at эе HE 3€ ጓና 3⁄ ate ale ЭЕ 35 3# ንጅ 35 ot ንጅ je Же 3ጅ E ችሩ 3ጅ ጓና E 3ጅ ንጅ ጓሩ NE 3ጅ ንጅ 3ጅ 3⁄ Эге S£ ንጅ al ንጅ ጓዴ NE HE 3 3ጅ X ንጅ 3ጅ ንጅ AE o Sk E እጅ ንጅ 3⁄ e ጋጅ ЖЕ E 


020 '*** DISPLAY INVERSE CHARACTER SET IN ROM _ тж 
050 '*** AS USED BY ሀዐፐ MATRIX РКІМТЕК жжж 
040 '*** BY R. B. КІТСН 27/9/86 Axe 


050 КК КК ate ale oie aie ate ote oie ንጅ ote ate S RE ate ጋጅ X€ 3 3e ai 3€ X€ E ae aie 3€ a ЖЄ КЖ 


090 : | mE 

100 DIM MK% (7) :'***VECTOR OF ВІТ MASK VALUES - POWERS OF ረ 

110 DIM BTZ(7) :'***VECTOR OF DECODED BITS FROM ROM VALUE. | š 
120 : 

130 '***FILL MASK VECTOR WITH POWERS OF 2 FOR DECODING. 
140 FOR 1%=0 TO 7 :MK%(I%)=2“I% :NEXT I% | 


150 : F 

168 '***INITIALIZE PARAMETERS - MAY BE CHANGED TO VARY SCREEN. 
170 СС%%=4& , '***CHARACTER COLOUR. (1-4) 

180 ВС%-2 ‚'***ВАСКСКОУМО COLOUR. (1-4) 

190 С5%=0 O'COLOUR SET. (2-1) 

200 CWZ=3 300, UMN WIDTH BETWEEN CHARACTERS. 

210 5Р%=16 O'*BROW SPACING FOR CHARACTERS. 

220 Н5%-0 ‚ '*# STARTING HORIZONTAL POSITION ON HI-RES SCREEN. 
230 VP*-5 SU'XGGSSTARTING VERTICAL POSITION ON HI-RES SCREEN. 


240 НМ%-12/ ."жжяМАХІМОМ HORIZONTAL POSITION. (0-127) 
250 
260 жж ЕТ ሀቦ MAIN LOOP TO STEP THROUGH ROM FROM 35B94H-5CD5. 


270 ВК%=0 ‚'***ВуТЕ COUNTER FOR EACH CHARACTER. 
280 НР%=Н5% ፡ !፳#*#ፍርፐ HORIZONTAL POSITION TO START 
290 MODE(1) :COLOR,CS7 S'**SET HI-RES SCREEN AND COLOR SET. 
500 FOR А0%=15252 ТО 15571 :'***ROM ADDRESSES FOR SHAPE TABLE. 
510 DV%=PEEK (AD%) ‹:'***ПЕСТМАС VALUE IN ROM. 

520 : 


550 '***DECODE THE INDIVIDUAL BITS OF DV% AND STORE ІМ ВТ2О. 
340 '***THE MASK VALUES IN MK%() ARE "ANDED" WITH THE VALUE. 


558 '***THE RESULT STORED IN ВТ%() IS THE "COLOUR" OF THE ВІТ. , 
560 FOR І%- 0 ТО / ፡ ' жжжРКОСЕЕО FROM LSB ТО MSB. 

570 IF DV% AND МК%(1%) THEN ВТ%(1%)-ВС% ELSE ВТА (1%) =СС% 

Ii. NEXT 1% 

90 


688 '***CHECK THAT THERE IS ENOUGH ROOM ТО PLOT CHARACTER. 
410 IF BK%=@ AND HMZ-HPZ«4 THEN HPZ-HS7 :VPZ=VPZ+SP%:'*NEW ROW 


4209 ВК%=ВК%+1 እጂ. ፒር... BYTE COUNTER. 


458 
440 ፡ ***QOUTPUT BYTE TO SCREEN. 
450 FOR 1%=0 TO 7 


8 


ሩዱ-ወጋ INVERSE CHARACTER SET CONT. 


460 COLOR 5ፐ5 (1%) QUSSET COLOUR ОЕ ВІТ. 

470 SET (НРА, ሃቦጄ+1%) «ж жо OT БІТ, 

480 NEXT 1% | 

490 ! | 

500 '*"**PREPARE FOR NEXT BYTE. 

510 НР%=НР%+1 GC SS TNCREMENT HORIZONTAL POSITION. 
520 IF ВК%=5 THEN BK*-0 :HP*zHPZ-CWZ ፡ NEW CHARACTER. 


530 NEXT AD 
590 GOTO 590 


EDITOR'S COMMENTS: 


THE VZ AS SOLD HAS A TANDY PRINTER COMPATIBLE BASIC ROM. FOR 
THOSE PERSONS WHO .HAVE AN EPSON PRINTER COMPATIBLE EPROM THE ABOVE 
PROGRAM WILL PRINT THE INVERSE CHARACTERS UPSIDE DOWN. TWO MINOR 
CHANGES ARE REQUIRED TO FIX THE PROBLEM: 


OLD LINE: 250 МР%=3 OLD LINE: 470 SET (ዘኮጄ , ҰР%-1%) 
NEW LINE: 250 МР%=11 NEW LINE: 470 SET(HPZ,VP£-IA) 


DISK USERS: ENTER THE FOLLOWING LINES FOR EXTRA FUNCTIONS. 


590 сото 820 . 
600 А%- ІМКЕҮЗ: AS-INKEYS:IF А$=""ТНЕМ 600 


610 

620 ЇЕ ልኔ=” U" THEN 700: ' | ; GOES TO HI-RES SCREEN UPDATE 
650 IF А$%="5"ТНЕМ№ 7190: ' GOES TO HI-RES SCREEN SAVE 

640 IF А%-"О"ТНЕМ CLS:END:' ENDS THIS PROGRAM 

650 IF A$2"^"THEN 800:' :GOES TO PROGRAM UPDATE ROUTINE 
660 IF А$="&"ТНЕМ 810: ' |. :60Е5 TO PROGRAM SAVE ROUTINE 
670 GOTO 600 | pi 

690 : | 

700 ЕВА" ТМУ-КОМ" : ' ር 2 ;ERASES HI-RES SCREEN FROM DISK 


712 BSAVE"INV-ROM',7000,77FF:' ;5АУЕ5 HI-RES SCREEN TO DISK 
720 GOTO 820 | 


790 : | 
800 :ERA"INV.ROM"':' :ERASES THIS PROGRAM FROM DISK 
810 SAVE"INV.ROM"':' :SAVES THIS PROGRAM TO DISK 


820 SOUND 25,1:60Т0 600 


ТАРЕ USERS: ENTER ONLY THE FOLLOWING LINES AFTER LINE 610. 


620 IF А%-"5“ТНЕМ 8090: ' ; GOES TO PROGRAM SAVE ROUTINE 
650 IF А%-"О"ТНЕМ CLS:END:' ;ENDS THIS PROGRAM 

640 GOTO 600 

690 : 

800 CSAVE"INVERSE ROM':' | ;SAVES THIS PROGRAM TO TAPE 


820 SOUND 25,1:GOTO 600 


ON THE NEXT PAGE YOU'LL SEE TWO HI-RES SCREEN PRINTOUTS PRODUCED BY 
THIS PROGRAM. THE LEFT ONE IS OF A STANDARD VZ ROM WHILE THE RIGHT 
ONE IS ОҒ A MODIFIED VZ ROM (EPROM). IF YOU STUDY THEM CAREFULLY 
YOU'LL NOTE THE ERRORS IN THE LEFT ONE THAT BOB MENTIONED. ANOTHER 


. ADVANTAGE OF THE MODIFIED EPROM IS THAT IT WILL PRINTOUT TO AN ЕР5ОМ 


COMPATIBLE PRINTER ALL THE VZ'S INVERSE AND GRAPHIC CHARACTERS. 


MODIFIED VZ ROM (EPROM) : 


BESIDES ALLOWING LLISTING AND ІРБІМТІМС OF ALL INVERSE AND GRAPHIC 
CHARACTERS THE EPROM ALSO PROVIDES ALL THE EXTENDED BASIC FUNCTIONS 


HOBBLED IN THE ORIGINAL VZ ROM WHICH MEANS IT IS NO LONGER REQUIRED ТО. 


LOAD АМҮ EXTENDED BASICS. 





THIS UTILITY WHICH SOME OF YOU MAY KNOW AS BSTWP.F (BASIC AND SOURCE 
CODE TO WORD PROCESSOR FILE CONVERTER) IS USED IN CONJUNCTION WITH 
Dave MITCHELL'S PATCHS.3 (DISK VERSION OF E & F WORD PROCESSOR). [Т 
CAN ALSO BE USED WITH RUSSELL HARRISON'S VERSION OF DISK WORD 
PROCESSOR (WORDPRO). | 


AS THE NAME SUGGESTS THIS UTILITY CONVERTS BASIC PROGRAMS AND EDITOR 


ASSEMBLER  ('S' FILE TYPE ONLY) SOURCE CODE FILES INTO WORD PROCESSOR- 


FILES WHICH CAN BE LOADED INTO EITHER DISK WORD PROCESSOR. CONVERTING 
COULD'NT BE SIMPLER, IT'S JUST ል MATTER OF ENTERING THE BASIC OR 
SOURCE CODE FILENAME AND ОМСЕ  LOADED ENTERING THE WP FILENAME. 
PRESSING RETURN WITHOUT FILENAME WILL PRESENT USER WITH DISK DIRECTORY 
IN 3 COLUMNS. | 


CONVERTING IS VERY FAST, DO'NT BLINK OR YOU MAY MISS IT. THE WP FILES 
ARE SAVED TO DISK WITH A "М! FILETYPE WITH AN END ADDRESS OF 0000Н. 
BOTH BASIC AND SOURCE CODE FILES ARE PADDED OUT TO 5 DIGITS WITH 
LEADING ZEROES WHICH YOU MAY HAVE COME ACROSS IN THE JOURNAL ОМ 
NUMEROUS OCCASIONS. $ 


AS YOU ENTER THE SOURCE CODE SAVE IT EVERY SO OFTEN SO YOU WON'T LOSE 
‘ALL YOUR TYPING. SAVE THE SOURCE CODE AS СОМУ. SRL AND THE OBJECT CODE 
AS CONVERT. | 


WARNING: YOU SHOULD BE AWARE THAT ANY GRAPHIC CHARACTERS IN YOUR 
CONVERTED BASIC PROGRAM WILL PRINT OUT AS GARBAGE AND IS A LIMITATION 
OF THE WORD PROCESSOR. 


ANYONE WHO HAS TRIED THE PRINTER FUNCTION OF THEIR EDITOR ASSEMBLER 
WILL FIND THIS UTILITY VERY HANDY FOR PRINTING OUT SOURCE CODE FILES 
AS IT CAN TAKE ADVANTAGE OF ALL THE PRINTER FUNCTIONS OF PATCH5.5 OR 
МОВОРКО HAS TO OFFER. 


CONVERT VERSION ==. ገል: 


BRIAN GREEVE OF МА HAS MODIFIED CONVERT BY ADDING EXTRA FUNCTIONS 
MAKING IT VERY VERSATILE INDEED. THANKS BRIAN. CONV3.1A WILL CONVERT 
ALL SOURCE CODE FILETYPES, EG: 5, А 8 W AS WELL AS QUICK WRITE 'F' 
WORD PROCESSOR FILES. OTHER OPTIONS ARE NUMBER OF DIGITS SELECT, 1-5 
AND 0909 ов ЕЕЙӢ WP FILE END ADDRESS FOR PATCH3.3 oR WORDPRO. 


44—11 BASIC & SOURCE CONV. 


, 001 
002 
005 


. 004 


005 
006 
007 
008 
009 
010 
011 
012 
015 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 


024. 


025 
026 
" 027 
028 
. 029 
050 
051 
052 
055 
054 
055 
050 
057 
058 
059 
0440 
041 
042 
045 
044 
045 
046 
047 
048 
049 


050 


051 
052 
055 

- 054 
055 

056 
057 

058 
059 

060 
061 


062 LT 


BASIC AND SOURCE CODE 
:TO WORD PROCESSOR FILE. 
;BY D.MITCHELL - 07800H 


SP , ZAFFH 
IY 

HL, (78B1H) 
BC, END-HO 
BC 

ል 

HL , BC | 
(78B1H) ,HL 
HL 

HL 

A - 

BC, 55H 

НЕ, ВС 
(78A0H) , HL 
HL — 
(78Е8Н) , HL 
DE,HO 

HL 

HL 

ል 

HL , DE 

DE, HL 


IX,LT 
L, (1Х+00) 


H, (1X+01) ` 


BC 


IY | 
L, (IY+00) 
H, CIY*01) 
Ні, DE 


DE 

(7200H) ‚ОЕ 
HL , HO 

BC 


IY 

НЕ, ERR 
(79ADH) , HL 
A, 0C 5H 
(7ӘАСН),А 
HL , /AESH 
(78AA4H) , HL 
1 BADH 

HL, (7200H) 
(HL) 

1+1 


ኮን N N ኮን ሎጋ — — — መኃ — መዓ መኃ መፅ ሬኃ ር 
Ем = @ ርጋ ዕዕ ሓ O) ‹ቭ] ጐ Q ኮጋ — © ርር) 


HO 
L2 
M1 


E1 
(4 


51 


52 


55 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


DEFW. 


DEFW 
DEFW 
DEFW 


DEFW 


CONT. 


HO- 1 
Е1+1 
12-41 
( 5+1 
(4-1 
(5+1 
| 6+1 
A0+1 
L /+1 
L8+] 
| (3+1 
L10+1 
L11+1 
В@+1 
[12+] 
(15-1 
| 14+1 
15+] 
| 16+2 
| 1/+2 
| 18+1 
| 18ል+1 
19+] 
Е2-1 
| 20-1 
21-1 
| 22-1 
ТРУТ+1 
| 23-41 


ERR+2 


М1+1 
М2+1 
HL , MESO 
2B/5H 
HL , M1 
(ADD) , HL 
HL , MES! - 


. 2B75H 


IPUT 

DLY 
402CH 

ረ 

£307. 

A . 

ዘረ ,400EH 
А, ВОН 

51 | 
А, CIY*10) 
е а 

2290 

ыш 

£495 

А, ОСН 

51 
(1\+9),А 
4041H 

A 

NZ, 400EH 
400BH | 
A, (1Ү-9) | 


NZ , BOA 


ON CN QN CN ኢዛ ON QN CN QA QN ኮን ኮጋ ኮጋ S ኮን 
(O Со ቲ O) ui — оч IS — © O O О) ርያ] 


О) О) О) О) О) G; О) O O л UT o1 U1 O с (Лл 01 FE FFE FFE FF FE — + + 
Со ፏ O U1 > © ርዕ O | O U1 ጐ N IS = @ ርዕ Сом! O) Q! = NN — ርጋ 


169 
170 
171 

172 
175 
174 
175 
176 
177 
178 
179 
180 
181 

182 
162 
184 
185 
186 


BASIC ይ SOURCE CONV. CONT. 


L5 
L6 


Ай 


L7 
L8 


A1 


A2 


АЗ 


L9 


B@A 


L10 
L11 


BØ 


L12 


DE, 4 
HL, (78F9H) 
HL , DE 
(BUF1),HL 
(BUF2) , HL 


HL, (/8A4H). 


EXIT 

A, CHL) 

HL 

(7921H) ,ል 
A, (HL) 

HL 
(7922H) ,ል 
BC 

HL 

BTA 
(BUF 1) , HL 
(78А7Н) , HL 
HL 

2B/EH 

HL, (/8ል/ክ) 
A, (HL) 

A | 
ረንልኃ 
40H 
С,А2 


(HL) , 0DH 


HL 
(HL) , 0DH 
HL 
(BUF1),HL. 
НЕ, 79፻88 
(78A7H) , HL 
HL 

AQ 

HL, (78F9H) 
(HL) ,@ 

HL 

(HL) ,ፀ 

HL , 8000H 
(BUF1) ,HL 
(BUF2) , HL 
HL , OA280H . 
EXIT 

HL 
(7921H) , BC 
HL 


. ВТА 


DE,HL 
HL 

A, (HL) 
/BH 
Z,B1 

/ AH 
Z,B1 
GAH 


187 
188 
189 


190 


131 

192 
135 
194 
195 
196 
197 
198 
199 
200 
201 

202 
205 
204 


205 


206 
207 
208 
209 


210 


211 

212 
213 
214 
215 
216 
217 
218 
219 
220 
221 

222 
225 
224 
225 
226 
22/ 
228 
229 
25@ 
25] 

252 


255. 


254 
255 
256 
257 
258 
259 


240. 


241 

242 
245 
244 
245 
246 
247 
248 


L13 
114 
115 
В 


В2 


B5 
Ва 


L16 


С 


(1. 
C2 
C5 


EXIT 


NZ 

DE, CBUF2) 
HL, CBUF1) 
(HL) , ВОН 
HL 

ጳ 

HL , DE 
Е 


44-12 


44-15 BASIC ይ SOURCE CONV. 


. 249 

250 
251 
. 252 
253 


254. 


255 
256 
25/ 
258 
259 
260 
261 
262 
265 
264 
265 
266 


L18A 
L19 
M2 
ር2 
120 


54 | 


EI 

L21 
ВТА 
[ረረ 


DL Y 


BR 


PUSH 
POP 


HL 

BC 

BC 

HL , ØCFFFH 
DE, HL 

HL 


DE 

(7ВААН) ‚ОЕ 
HL ,@D000H 
(HL) ,0 
(78F9H) , HL 
НЕ, M2 
(ADD) , HL 
HL ,MES2 
2B75H ` 
IPUT 


(፲ሃ+9) ,"ህ" 


DL Y | 
ል, (12ዘ) 
/,А 
2,54 
А,4 
400EH 
48444 

A 

NZ ,400EH 
4400BH 


HO 

ВС, 0606H 
HL, CBUF1) 
1 52FH | 
HL | 
(HL) , 20H 
HL 


(/8B1H) , HL 


_ BC, 65485 


HL , BC 
(Z8A0H) ,HL 
HL , /АЕЭН 
(Z8A4H) ,HL 
А, 0C9H 
(/8ል(ዘ) „A 
1 B4AH | 
1A19H 

HL, MESS 
2B75H 

05 5AH 
C,BR 

А, (DE) 

20H 

Z,DIR 


511 
512 
512 
514 
515 
516 


517 


518 
519 
520 
521 

522 
525 


524 


525 


` 526 


DIR 


1.25 
D1 


527 


528 
529 
550 
551 

552 
555 
554 
555 
556 
557 
558 
559 
540 
541 

342 
545 
544 
545 
546 
547 
548 
549 
350 
351 

352 
593 
554 
395 
556 
357 
558 
559 
560 
561 

562 
565 
564 
565 
566 
567 
568 
569 
370 
571 

572 


02 


05 
04 


D5A 


D5 
D6 


LD 
LD 
INC 


01C9H 
ጳ 


(1Ү+11Н) ,ል 
(IY+12H),A 
(ZAAEH), A ` 
DLY 


4035H 
11H 

2,07 

А r 

NZ , 400E 

L, (IY+31H) 
H, (ТҮ+52Н) 
B,8 

A, (HL) 

A 


2,07 
BC 

1 
NZ,D3 
DE,16 
Ні, ОЕ 
06 

В, 10 


А, (HL) 
HL 
055AH 
[)ዱ 


A, (ZAAEH) 
A,10 

20H 
NZ,D5A 
ል, 20H 
055AH 

05 

А, ВОН 
055AH 

ል, 1BH 
055AH 
DE,6 
HL , DE 

BC 

D2 
(IY+11H) 
А, (1ኘ+11ዘ) 
ФЕН 
NZ,D1 
400BH 


BC 
BC, CADD) 


BASIC & SOURCE CONV. CONT. “ራሖሓ-ገዱ 


373 РОЅН ВС 586 * WRITTEN BY D.MITCHELL* 
5/4 RET 587 DEFB @DH 
575 ADD ПЕРМ 0 | 3588 NOP 
576 BUF1 DEFW 0 589 MES! DEFB ФОН ` 
377 8ህዮረ DEFW ሀ 590 * ENTER B/S * | 
578 MESO DEFB ТЕН | 591 МОР | 
579 * THIS PROGRAM WILL MAKE WO 592 MES2 DEFB ሀሀዘ 
580 *RD* 595 * ENTER WP. * 
581 DEFB Орн | 594 NOP 
582 * PROCESSOR FILES FROM* 595 MESS EQU $ 
585 * BASIC AND EDITOR ASSEMBL* 596 *FILENAME :* 
584 *ER SOURCE CODES* 597 NOP 
585 DEFB ФОН . 598 END МОР 


VZ NUMBERS FREQUENCY 


THIS PROGRAM IS DESIGNED TO KEEP TRACK OF WINNING NUMBERS IN POOLS AND 
GO [ ዕፐፐዐ , THERE IS ል CHOICE OF PRIME NUMBERS ONLY OR CAN INCLUDE 
SUPPLEMENTARY NUMBERS ልኳ WELL. WITH SOME MINOR MODIFICATIONS THIS 
PROGRAM COULD BE ALTERED TO KEEP TRACK OF OTHER NUMBER FREQUENCIES. 


THE LEFT PRINTOUT BELOW SHOWS GO LOTTO FREQUENCY NUMBERS FOR THE YEAR 
OF 1994 UP TO THURSDAY, WEEK Z WHILE THE ONE ON THE RIGHT IS FOR THE: 
SAME TIME PERIOD, BUT INCLUDES SUPPLEMENTARY NUMBERS AS WELL. 


THERE ARE TWO INPUT CHOICES: | í 


1) INSERT - THIS ALLOWS YOU TO INSERT NUMBERS AS THEY ARE DRAWN 
AND/OR ADD TO EXISTING NUMBERS. 

2) EDIT  - IF YOU HAVE BEEN KEEPING TABS OF NUMBERS USING PENCIL AND 
PAPER THEN THIS OPTION WILL ALLOW YOU TO ENTER NUMBERS IN THE 
RANGE FROM ወ TO 9999 MAXIMUM. | 


ALSO ТО THE BEST OF MY KNOWLEDGE THIS IS THE FIRST TIME THAT А 4 BYTE 
MULTI USR CALL ROUTINE HAS BEEN USED IN A PUBLISHED PROGRAM WHICH WAS 
DESCRIBED IN ISSUE 4 31, PAGE 14. ІТ SIMPLIFIES THE CALLING ОҒ М/С 
ROUTINES WHICH ARE: 7 | 


1) VZ SOUND BEEPER. | 
2) M/C CLS (CLEAR PART SCREEN - 14 LINES.) 
5) М/С DIRECTORY ROUTINE WHICH WILL BE PUBLISHED IN NEXT ISSUE. 





Bu MN. “е р БЕКИНИН UTERE EHE ШЕШЕН i N p uc 
і- Z 12፦ Z рз б з4- 1 1і- 3 1፳፦ Z ža- й g~ 1 
2. Í 13- = 24- Í z9- š в- ኒ 1፳2፦ መ= zd- Ož В lj ° 
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44 — 173 YZ FREQUENCY CONT ፲ РЧА ዘሯ፤ን 


00701000 

ERA"---—---- " RETURN 

REN" " ; RETURN 
OPEN "--—----- к 

IN" ",YR,WK,R,L$,P$:RETURN 
FORI=1TOR | 
IN#"-------- " COD :NEXT 

CLOSE" -------Ż " : RETURN 


ЗАУЕ"-------- ":RETURN 





106 


mab ғ”. ጨቅ emn 


ን ባር ን ኞች ችን ውን ም ን ዱዓ 


M ኤነ МЈ 


FOR O=@ TO 7:POKE AD+O, АЗС (MIDS (ዘፄ+" ` ።" 0+1,1)) 
NEXT: RETURN 


FOR 0=@ TO 2:POKE AD+0, ASC (MIDS (X$, 0+1, 1) ን : NEXT : RETURN 
CLs: POKE 30777,1: PRINT г MU E d 
IF M>@ THEN RETURN: 52 INVERSE SPACES. ва 

РКІМТАЭ, FR$:RETURN 

PRINT3275, "N" :PRINTA258, "ARE YOU SURE "; 3RETURN 


PRINT8487, M$; : RETURN 





PRINT8226, "SELECTED DRIVE >";D: RETURN 


nes 


ND- 0:FOR ፲=1 TO R:IF ር(፲)>6 THEN ND-1:I-R:'"BHDOBHTAEEHIMEIS 
NEXT:IF М№=1 THEN RETURN | 
РКІМТа595, СВЕЦА АГЕН": SOUND 5,6:ND=0:RETURN 


IF R-44 THEN PL$-"LOTTO" ELSE Р 
РКІМТа481, РІ $; :РВІМТ" YR МК" 

РКІМТ9490, USING"##"; ҮК; 
PRINT0496,USING"##" ; МК; 

PRINT8499,USING"% 1":L$; 
PRINT3505,P$; : RETURN 


AD-51555:GOSUB 40:'POKE LINE 16 FILENAME 
AD-51555:GOSUB 40:'POKE LINE 18 FILENAME 
AD=51600:GOSUB 40:'POKE LINE 22 FILENAME 
AD-51627:605UB 40:'POKE LINE 24 FILENAME 
AD-51551:GOSUB 46:'POKE LINE 18 INZ/PR£ 
А0=31596:6050В 46:'POKE LINE 22 INS/PR£ 
РОКЕ 51545, ጸ : POKE LINE 16 0 OR 1 


IF U-2 THEN ልሀ=51483:፤005ህ8 40: 905/8 12: РОКЕ LINE 12 F'NAME 
GOSUB 16:6050В 90:G60SUB 20 | 
IF U=@ THEN 500 ELSE 400 


M- 0:GOSUB 50:6050В 90: ' "шашыннын ca sam 
РКІМТа247, ҮК: РКІМТа226, "ENTER YEAR (94— -99) YS 
INPUT YR: IF YR=@ THEN 300 

IF YR«94 OR YR»99 THEN 152 


PRINT8279, МК: PRINTQ258, "ENTER WEEK (00-52) ";:INPUT WK 
IF WK-0 THEN 300 
IF WK>52 THEN 160 


PRINTAS 2 .L$:PRINTƏZ90, "ENTER (MON MID SAT) ";:INPUT L$ 
IF L$="" THEN 500 
LS$-LEFT$(L$,5):60TO 500. 












VUE FREQUENCY CONT INLUED . ዱዳ፦ኋቷሬ 
M= 0:GOSUB 50:GOSUB 90: ' "Вісн 


ТЕ R-44 THEN РКІМТа245, "1" ELSE РВІМТ8245, аг" 
PRINT4226,"LOTTO OR POOLS ";::INPUT Y$ 


IF Y$="L"THEN ክ8=44:ዞ=8:ኮ8፲ከፐ፲8481 , "Шеин"; : GOTO 216 
ІР Y$-"P"THEN К-58:Р-/:РКІМТӘ481, "iini" ; : ELSE 204 


PRINTA275 , "№" :PRINTa258, "PRIME #'S ONLY ";:INPUT P$ 


IF P$2"Y"THEN P$-"PRIME ":P-6:GOTO 230 
IF P$="N"THEN P$-"PRIME-":GOTO 250 ELSE 216 


«= USR (31348) : ' CLEAR PART SCREEN 
L- 98:FOR А=1 TO P 


IF A«7 THEN PRINTaL, "ENTER WINNING fu ALT. 
IF A=7 THEN [=5ረረ | 
IF A»6 THEN PRINTaL, "SUPPLEMENTARY NUMBER 7; 


INPUT N(A) 

IF N(A)20 THEN A-P:GOTO 500 

IF A«7 THEN IF М(А)>В THEN 256 

IF A»6 THEN IF N(A)>R THEN 240 

Т-0:ІЕ A«»1 THEN FOR I=] TO А-1 :Т=Т- (МСТ) ENCA) ) : NEXT. I 
IF (T) THEN 236 

L- +52: NEXT 


PRINT8441,"Y":PRINT8418, "ARE NUMBERS CORRECT " 


INPUT Y$:IF Y$-"Y"THEN 270 
IF Y$="N"THEN 232 ELSE 260 


ч е 






FOR Ісі TO Р: paana ed 
COLD) =C(N(I))+1: NEXT 


PRINTSAA41, "Y" :PRINT8418, "ENTER MORE NUMBERS . ";:INPUT Y$ 


IF Y$-"Y"THEN 250 
IF Y$="N"THEN 500 ELSE 276 


M-0:GOSUB БО: ' "авза; 
PRINT3075,"I) INSERT DATA" 
PRINT9105 "E) EDIT БАТА" 
PRINTQA137"D) DISPLAY DATA" 
PRINT3201,"P) PRINT DATA" 
PRINT3235,"C) CLEAR РАТА" 
РБІМТ8265,"Ү) ENTER  YR/WK" 
PRINT3329,"Q) QUIT & PARK" 
PRINT3361,":) SUB MENU" 
PRINT3395,":) DISK MENU  " 


GOSUB 90: SOUND 25,1 
POKE 30777,35 


ርፄ- INKEY$:C$=INKEY$:IF C$=""THEN 550 ELSE X= USR (13392) 
IF C$2"I^THEN 200 








а-а М? FREOUENCY CONT IPMLIED 


556. 


558 


IF С%-"Е"ТНЕМ 900 
IF С$="О"ТНЕМ 500 


360 : 


362 
564 
566 


IF С$="Р"ТНЕМ 550 
IF C$-"C"THEN RUN 
IF С%-"Ү"ТНЕМ 150 


568 : 


5/0 
572 
57% 


5/8 : 


596 


598 : 


400 


402 : 


404 
406 
408 


410 ! 


412 
414 
416 


418 : 


420 
422 
424 
428 
450 
442 
444 
446 
448 
450 
452 
454 
456 
458 


IF C$-"Q"THEN 680 
IF C$="; "THEN 960 
IF C$-":"THEN 400 
GOTO 350 


5 `. 
M=0:G0SUB 50: ' "Ший ЕШ 
መጃ. м N Sa e HE = ВЕНЕ 





PRINT3073,"L) LOAD РАТА" 
PRINT3105,"S) SAVE РАТА" 
PRINT3137,"U) UPDATE DATA" 


PRINT3201,"E) ERASE FILE" 
РВІМТ8255,"8) RENAME FILE" 
PRINT9265,"I) INIT DISK" 


РКІМТ0529,"р) DIRECTORY" 
PRINT4561,"1) DRIVE 1/2" 
РКІМТа595, ":) MAIN MENU * 
DRIVE D:PRINT3361,USING"£":DR - 


605ህ8 90 : SOUND 25,1 
РОКЕ 50777 ,35 


Ds= INKEY$:D$=INKEY$:IF 0$=""ТНЕМ 450 ELSE X= USR(13392) 
IF D$="L “THEN U=0:GOTO 650 


IF 0$="5"ТНЕМ U=1:GOTO 650 
IF D$-"U"THEN U=2:GOTO 650 


459 : 


460 
462 


IF О%-"Е"ТНЕМ 600 
IF D$="R"THEN 620 


465 : 


464 
466 
470 
472 


IF D$-"D'THEN 850 

IF D$-"I"THEN 780 | 

IF D$-"1"THEN Dz1:DR$-"&i":GOTO 430 
IF D$-"2"THEN D-22:DR$z"BR":GOTO 450 


4/4 : 


4/6 
494 
496 
498 
500 
502 


IF D$=":"THEN 300 
GOTO 450 


GOSUB 80:IF М№=0 THEN 526: ' "вашар 
М=0:6050В 50:GOSUB 90 


508 : 


510 


E$="##";F$="#### ".РАТМТабд, **; 


518 : 


520 
522 
524 
526 


528 : 


550 
552 


IF R=58 THEN X1=10:Y1=30:ST=10 

IF К=44 THEN X1=11:Y1=33:ST=11 

FOR Х=1 TO Х1:ҒОВ Ү-0 TO Y1 STEP ST | 
IF К=58 THEN IF X+Y>38 THEN PRINT:GOTO 534 ` 


PRINT USING ES$;X-«Y::PRINT"-": 
PRINT USING F$;C (X+Y): 


554 
556 
542 
544 
546 
548 
550 
992 


VZ FREQUENCY CONT I NUED 44g 


NEXT Y:NEXT X 
E$= “H .F $=" H 


PRINT8455, M$ 
IF INKEYS=": "THEN 300 ELSE 546 


GOSUB 80:IF ND=0 THEN 326: ' "нЕ ат 
M=1 :GOSUB 5O:PRINT311, Часа иа"; GOSUB 90 








554 : 


556 
558 
. 960 


562 : 


564 
566 
568 
570 


GOSUB 60:INPUT Y$ 
IF Y$-"N'THEN 500 
IF Y$-2"Y"THEN 564 ELSE 556 


E$="##":F$="**### " | 

LPRINT TAB(10)"VZ “3Рі%;" YR ";USING E$;Y; 
LPRINT" WK ";USING ES;W;:LPRINT" ";USING'^ 3$';L$; 
LPRINT USING"% 5 ;P$:LPRINT 


572 : 


5/4 
576 
578 
580 


IF R=38 THEN X1=10:Y1=30:5T=10 

IF К=44 THEN X1=11:Y1=33:ST=11 

FOR Х=1 TO X1:FOR ኘ=0 TO Ү1- STEP ST 
IF R=38 THEN IF Х-Ү>58 THEN 590 


584 : 


586 
588 

590 
594 
596 
598 
600 
602 
604 
606 
608 
610 


LPRINTTAB(10)USING E$;X*Y;:LPRINT"-"; 
LPRINT USING F$;C(X+Y) ; 

NEXT Y:LPRINT 

NEXT X:LPRINT 

E$="":F$="":GOTO 300 


el: GOSUB 50:РКІМТаТО, "аниа"; :GOSUB 68:PRINT9258,EF$; 


SOUND 50,1:1INPUT N$ 

IF N$-""THEN 400 

IF LEN(N$)58 THEN 600 
AD-51485:G605UB 40:605UB 12 
GOTO 400 


618 : 


620 


n 


M=1:GOSUB 50:PRINTG10, "ша йшй 





ЕЕ ፡ :GOSUB 68 


622 ! 


624 
626 
628 
650 


PRINTa3258,"OLD FILENAME > ";:50UND 50,1:1INPUT № 
IF N$-""THEN 400 | 

IF LEN(N$)»8 THEN 620 

А0=51505:6050В 40 


652 : 


654 
656 
658 
640 
642 
648 
650 
652 
654 
656 
658 
660 


PRINT3290,"NEW FILENAME > ";:SOUND 30,1:INPUT N$ 
IF N$-""THEN 400 

IF LEN(N$)»8 THEN 654 

А0=51514:С6050В 40 


60508 14: СОТО 400 


IF U»0 THEN 60508 80:1F ከ0=ዐ THEN 424: "EMARE 
M-1:G0SUB 50 

IF U-0 THEN РВІМТӘ11, "рй", 

IF U=1 THEN ዞ፳፲ከ፲1 1, "ева"; 

IF U-2 THEN РВІМТӘТО, "zaren" ; 

PRINT "Шай" :GOSUB 90:00508 68 





662 : 


664 
666 
668 


PRINT3275,N$:PRINT3258,EF$; 
INPUT N$:1F N$=""THEN 400 
IF 1ЕМ(М%)>8 ТНЕМббА 


= ወ CONT INLIED NEXT ISSUE: . 


ዱዳዱ--4% ላዖሯ--ፎጮመጩርኮ፤! PRINTER PATCH V1 _ 4 


BY LARRY TAYLOR — PUBLIC DOMAIN 
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The \У2-ЕРЗОМ PRINTER PATCH allows EPSON оғ EPSON 
compatible printers to LPRINT or  LLIST all of the VZ s 


. inverse and graphics characters. 


These same characters can also be dumped to the printer 
from the  LO-RES screen, when the COPY command is used. In 


MODE(1), use of the COPY command will dump the HI-RES: 
screen to the printer. In addition, an extension of the, 


COPY command has been provided. The new command is COPYA. 
If COPYA is used in МОВЕ (0), a dump of the LO-RES screen 
will be made without the usual linefeeds, whilst in 
MODE ( 1 ን ን a. larger than normal dump of the HI-RES screen 
will ከፎ printed. To cater to differences in line feeds 
between printers, both commands may be used in the form 
COPYn and  COPYAn, where п is a value ranging from 4 to B. 
Changing п allows selection of ል line feed setting 
apppropriate to the printer being used. Should COPY or 
COPYA not be followed by a line feed value, then a default 
setting of ይ will be used. 


Three additional commands, ЕТАВ (п), РАБЕ (п) and FEED (n) 
have also been added. The ТАВ (п) command is used to set a 
left margin for any output to the printer, whether from an 
LPRINT statement, during LLiSTing ወቶ a BASIC program or 
when doing a screen dump. The value n may be in the range O 
to 65, indicating the number of spaces in from the left 
that printing will occur. ል printout of the disk directory 
at the current .LTAB(n?) position can be obtained by first 
setting the output device code to printer, followed by the 
DIR command. eg. |. POKESOB76,1:DIR | 


РАСЕ (п) sets the page length and n may be in the range 
О to 127. FEED(n) sets the number of linefeeds between the 


end ወተ printed text and the end of the page. It can be in 


the range from О to 127, but unless it is less than the 
page length, it will be ignored. Setting a valid linefeed 
value, causes a form feed to occur automatically. If n is 
set to O then the automatic form feed is switched off. 
ТАВ (п), РАСЕ(п), ҒЕЕр(п), LLIST, LPRINT and both the COPY 
commands may be entered either directly from. the keyboard, 


or used .from within а program, but will oniy function 
correctly whilst the PRINTER PATCH is present. 


The utility locates and protects itself according to 
available memory, allowing BASIC programs to be loaded and 


worked оп normally. When LLISTing a BASIC program, the 
routine is also able to recognize all of the hidden 
commands, which may have been entered using an EXTENDED 
BASIC. Although not dependent оп it, the routine can be 
used with Steve Olney's EXTENDED BASIC already resident in 
memory and will not interfere with it in any way. To use it 
in this мау, first load the extended BASIC and then the 
PRINTER PATCH. Once the READY message appears you will have 
access to both the EXTENDED BASIC and the improved printer 
commands. 
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DA | 


muUa TT e e a a Iu ue E e e b a a e a a a e e a РРА, Р.Р РРР ый 


NEW PUBLIC DOMAIN SOFTWARE 44—20 


DAVE MITCHELL. 


ር & F WP PATCH 5.5 E & F WP PATCH 5.4 

MENU & FILE COPIER MENU & FILE COPIER 600€H 
EXTENDED DOS V1.5 EXTENDED DOS 6000 
MONITOR ОЙРОН DISK FILE COPIER ርጩ፪፳8 


DISK FILER & CATALOGUER 
MARK HARWOOD 


MARK 32 DATABASE | MARK 64 DATABASE 

DISK EDITOR ASSEMBLER VZ USER NEWSLETTERS - 22 ISSUES 
LARRY TAYLOR 

VZ EPSON PRINTER PATCH 1.4 ESCAPE RIVER (LO/HI-RES ADVENTURE) 

COPYPRO 4: FILE COPIER/PROTECTOR FACTORY (EDUCATIONAL GAME) 

COPYPRO 5: TWO DRIVE DISK ONLY TOWER OF HANOI (EDUCATIONAL GAME) 


DISK COPY 2: SINGLE DRIVE COPIER МАМЕ THE TOWNS (EDUCATIONAL) 

FILE SEARCH 2 (DISK/TAPE CONTENTS) MICROSCOPE (EDUCATIONAL) —- 
DISK MENU (MEMORY RESIDENT) SNERTLE (EDUCATIONAL MATHS) 
BRIAN GREEVE : MACHINE CODE DATA 2 

Hi. V. VZ U. G. : HNTER VALLEY VZ JOURNAL 


DICK SMITH EL: IT COULD BE SAFELY SAID THAT IT IS PUBLIC DOMAIN ALSO 


AS FOR А COUPLE YEARS NOW THEY HAVE REFERED TO ME PERSONS WISHING TO AQUIRE ሃረ 


SOFTWARE, HARDWARE OR VARIUOS PUBLICATIONS, 


NOTE : I HAVE MOST OF THE ABOVE PROGRAMS AND THEY CAN BE HAD JUST FOR THE 


PRICE OF COVERING COSTS LIKE POST, PACKING, DISKS, ETC. 


ا 


CONTRIBUTIONS TO THE JOURNAL 


IF YOU ARE THINKING OF CONTRIBUTING TO THE JOURNAL THE PREFERED FORMAT IS BASIC 
LISTINGS, WORD PROCESSOR OR SOURCE CODE FILES ON TAPE OR DISK. FILES FROM ALL 
EDITOR ASSEMBLERS AND WORD PROCESSORS CAN BE ACCEPTED. THE PREFERED WORD 
PROCESSORS ARE LESLIE MILBURN QUICK WRITE, RUSSELL HARRISON WORDPRO AND DAVE 
MITCHELL PATCH 5.5. 


CLUB MEETINGS — ALL WELCOME 


MEETINGS WILL BE APPROXIMATELY ONCE A MONTH, USSUALY ON THE FIRST FRIDAY. 
MEETING DATES WILL BE ADJUSTED TO ACCOMODATE MEMBERS ABILITY TO ATTEND. WHETHER 
YOU ARE A LOCAL MEMBER, INTRA OR INTER STATE VISITOR PLEASE CHECK WITH JOE LEON 
FIRST. 


HUNTER VALLEY VZ JOURNAL SUBSCRIPTIONS 


SUBSCRIPTION TO - AusT. — 5 ISSUES $11.00 — 6 ISSUES $21.00 
H.V.VZ.JOURNAL - ከ. Z. - 5 ISSUES $15.00 - 6 ISSUES $26.00 
PRICES INCLUDE POST & PACKING 


FOR МОКЕ INFORMATION ON MEETINGS АМО SUBS CONTACT: | 
ЧОЕ LEON 35 TicHES ТСЕ TIGHES HILL 2297 (049) 611 474 AUSTRALIA 


mam UN SHOE Qr መ ን 


NOTE : WHEN WRITING TO H.V.VZ. USERS' GROUP FOR INFORMATION PLEASE ENCLOSE A 
| S.S.A.E. OR NZ 2 INT. REPLY COUPONS. 


